home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / fpl-v13.lha / fpl / src / liballoc.i < prev    next >
Text File  |  1995-07-08  |  3KB  |  54 lines
  1.  ******************************************************************************
  2.  *              FREXX PROGRAMMING LANGUAGE                  *
  3.  ******************************************************************************
  4.  
  5.  * liballoc.i
  6.  
  7.  * the top of the "Data struct" for assembler use
  8.  
  9.  ******************************************************************************/
  10.  
  11.  ************************************************************************
  12.  *                                                                      *
  13.  * fpl.library - A shared library interpreting script langauge.         *
  14.  * Copyright (C) 1992-1994 FrexxWare                                    *
  15.  * Author: Daniel Stenberg                                              *
  16.  *                                                                      *
  17.  * This program is free software; you may redistribute for non          *
  18.  * commercial purposes only. Commercial programs must have a written    *
  19.  * permission from the author to use FPL. FPL is *NOT* public domain!   *
  20.  * Any provided source code is only for reference and for assurance     *
  21.  * that users should be able to compile FPL on any operating system     *
  22.  * he/she wants to use it in!                                           *
  23.  *                                                                      *
  24.  * You may not change, resource, patch files or in any way reverse      *
  25.  * engineer anything in the FPL package.                                *
  26.  *                                                                      *
  27.  * This program is distributed in the hope that it will be useful,      *
  28.  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
  29.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                 *
  30.  *                                                                      *
  31.  * Daniel Stenberg                                                      *
  32.  * Ankdammsgatan 36, 4tr                                                *
  33.  * S-171 43 Solna                                                       *
  34.  * Sweden                                                               *
  35.  *                                                                      *
  36.  * FidoNet 2:201/328    email:dast@sth.frontec.se                       *
  37.  *                                                                      *
  38.  ************************************************************************
  39.  
  40.  
  41.  STRUCTURE DATA,0
  42.     APTR    DATA_STACKBASE    ; our new stack base
  43.     ULONG    DATA_STACKSIZE    ; stack size
  44.     ULONG    DATA_STACKMAX    ; Maximum stack left after a FPL function call
  45.     ULONG    DATA_STACKLIMIT    ; absolute maximum stack usage allowed
  46.     ULONG    DATA_MINSTACK    ; minimum stack required at "interface" calls
  47.  
  48.     STRUCT    DATA_REGISTERSTORAGE,11*4    ; room to store registers
  49.     APTR    DATA_TASK    ; pointer to our task structure
  50.     APTR    DATA_OLDTOP    ; old stack top
  51.     APTR    DATA_OLDBOT    ; old stack bottom
  52.     ULONG    DATA_EXT_STACK    ; external stack
  53.     ULONG    DATA_INT_STACK    ; internal stack
  54.